home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)td.d64 / sousa.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  115 lines
  1. 57 REM"[141][147]PROGRAM BY ERIC HAAS  1982"(null)
  2. 100 REM *** ERIC HAAS      1982
  3. 110 POKE53280,0:POKE53281,0:PRINT"[147]THE STARS AND STRIPES FOREVER"
  4. 120 PRINT"     BY JOHN PHILIP SOUSA"
  5. 125 GOSUB10000
  6. 130 POKE54296,15
  7. 150 POKE54277,17
  8. 160 POKE54278,128
  9. 170 READN,D:IFN=-1THENPOKE54296,0:END
  10. 175 N=N/2:D=D/1.7
  11. 180 HN=INT(N/256):LN=N-HN*256
  12. 190 POKE54273,HN:POKE54272,LN
  13. 200 POKE54276,33
  14. 210 FORI=1TOD:NEXT
  15. 220 POKE54276,32
  16. 230 GOTO170
  17. 240 DATA9634,500,9094,375,9634,125,8101,250,9634,500,10814,250,11457,250
  18. 260 DATA12139,250,12860,250,13625,250,14435,250,0,125,7217,500
  19. 270 DATA12139,250,0,63,12139,125,12139,250,12139,250,12139,250,0,63,12139,125
  20. 280 DATA12860,250,12860,250,10814,125,10207,125,10814,125,12139,125,10814,250
  21. 290 DATA9634,250,9094,250,8101,250,9094,250,7217,250,14435,250,0,63,14435,125
  22. 300 DATA14435,250,14435,250,14435,250,0,63,14435,125,15294,250,15294,250
  23. 310 DATA16203,125,15294,125,16203,125,19269,125,18188,250,16203,250,15294,625
  24. 320 DATA15294,125,7217,250,7217,250,0,63,7217,125,9634,250,0,63,8101,125
  25. 330 DATA7217,250,6812,250,7217,250,6069,250,5407,250,3608,125,3406,125
  26. 340 DATA3608,125,3406,125,3608,125,5407,250,3608,125,3406,125,3608,125
  27. 350 DATA3406,125,3608,125,7217,250,0,63,7217,125,9634,250,0,63,8101,125
  28. 360 DATA7217,250,6812,250,7217,250,5728,250,5407,250,6812,125,6069,125
  29. 370 DATA6812,125,6069,125,6812,250
  30. 380 DATA7217,250,0,125,7217,500
  31. 390 DATA12139,250,0,63,12139,125,12139,250,12139,250,12139,250,0,63,12139,125
  32. 400 DATA12860,250,12860,250,10814,125,10207,125,10814,125,12139,125,10814,250
  33. 410 DATA9634,250,9094,250,8101,250,9094,250,7217,250,14435,250,0,63,14435,125
  34. 420 DATA14435,250,14435,250,14435,250,0,63,14435,125,15294,250,15294,250
  35. 430 DATA16203,125,15294,125,16203,125,19269,125,18188,250,16203,250,15294,625
  36. 440 DATA15294,125,7217,250,7217,250,0,63,7217,125,9634,250,0,63,8101,125
  37. 450 DATA7217,250,6812,250,7217,250,6069,250,5407,250,3608,125,3406,125
  38. 460 DATA3608,125,3406,125,3608,125,5407,250,3608,125,3406,125,3608,125
  39. 470 DATA3406,125,3608,125,7217,250,0,63,7217,125,9634,250,0,63,8101,125
  40. 480 DATA7217,250,6812,250,7217,250,5728,250,5407,250,6812,125,6069,125
  41. 490 DATA6812,125,6069,125,6812,250
  42. 500 DATA7217,250,0,125,7217,375,6430,125
  43. 510 DATA6069,500,8101,375,7217,125,4547,500,4050,500,3608,500,6430,500
  44. 520 DATA6069,500,5407,375,6069,125,6430,250,8101,500,9634,250,10814,500,9634,500
  45. 530 DATA6069,1000,5407,500,7217,375,6430,125,6069,500,8101,375
  46. 540 DATA7217,250,4547,500,4050,500,3608,500,6430,500,6069,500,5407,375
  47. 550 DATA6069,125,6430,250,8101,250,10814,375,9634,125,6069,250,7217,250
  48. 560 DATA4817,375,6069,125,5407,1000
  49. 570 DATA4817,250,0,125,7217,375,6430,125
  50. 580 DATA6069,500,8101,375,7217,125,4547,500,4050,500,3608,500,6430,500
  51. 590 DATA6069,500,5407,375,6069,125,6430,250,8101,500,9634,250,10814,500,9634,500
  52. 600 DATA6069,1000,5407,500,7217,375,6430,125,6069,500,8101,375
  53. 610 DATA7217,250,4547,500,4050,500,3608,500,6430,500,6069,500,5407,375
  54. 620 DATA6069,125,6430,250,8101,250,10814,375,9634,125,6069,250,7217,250
  55. 630 DATA4817,375,6069,125,5407,1000
  56. 640 DATA4817,250,0,125,9634,500
  57. 650 DATA9634,500,8583,250,8101,250,8101,500,7647,250,8101,250,8101,1500
  58. 660 DATA7647,250,8101,250,8101,500,7647,250,8101,250,9634,500,8101,375
  59. 670 DATA9634,125,8583,1000,7217,500,7217,500,7217,500,6812,250,7217,250
  60. 680 DATA7217,500,6812,250,7217,500,8583,1500,8101,250,7217,250,8101,250
  61. 690 DATA9634,750,10814,750,10814,250,7217,1500,9634,500,9634,500,8583,250,8101,250
  62. 700 DATA8101,500,7647,250,8101,250,8101,1500,7647,250,8101,250,8101,500
  63. 710 DATA7647,250,8101,250,8583,250,8101,250,7217,375,6069,125,7217,1000
  64. 720 DATA6430,500,6430,500,6430,500,6069,250,6430,250,7647,500,7217,250
  65. 730 DATA6430,250,12860,1250,6430,250,7217,250,8101,250,9634,250,6430,250
  66. 740 DATA7217,250,8101,250,9634,250,4817,250,5407,250,8101,250
  67. 750 DATA7217,1000,6430,250,0,250
  68. 760 DATA6430,250,6430,250,6430,250,6069,250,6069,250,5407,250,5407,250
  69. 770 DATA5103,250,10814,250,10207,250,5407,250,5103,250,10814,250,12139,250
  70. 775 DATA10207,500,8101,250,8101,250,8101,250
  71. 780 DATA7217,250,7217,250,6430,250,6430,250,6069,250,12860,250,12139,250
  72. 790 DATA6430,250,6069,250,12860,250,14435,250,12139,500,4817,125,6069,125
  73. 800 DATA7217,125,8583,125,10207,375,10207,125,10207,250,10207,250,10207,250
  74. 810 DATA9634,250,9094,250,8583,250,8101,250,7647,250,7217,250,6812,250
  75. 820 DATA6430,250,5728,250,5407,125,6812,125,8101,125,9634,125,11457,375
  76. 830 DATA11457,125,11457,250,11457,250,11457,250,10814,250,10207,250
  77. 840 DATA9634,250,9094,250,8583,250,8101,250,7647,250,7217,250,6430,250
  78. 850 DATA6430,250,6069,125,7217,125,9634,125,12139,125
  79. 860 DATA14435,250,7217,125,7217,250,7217,250,7217,250,7217,250,6069,125
  80. 870 DATA7217,125,9634,125,12139,125
  81. 880 DATA14435,250,7217,125,7217,250,7217,250,7217,250,7217,250,6069,125
  82. 890 DATA7217,125,9634,125,12139,125
  83. 900 DATA14435,375,14435,125,13625,375,13625,125,12860,375,12860,125,12139,375
  84. 910 DATA12139,125,11457,375,11457,125,10814,375,10814,125,10207,250,9634,250
  85. 920 DATA10814,250,9634,250
  86. 930 DATA9634,500,8583,250,8101,250,8101,500,7647,250,8101,250,8101,1500
  87. 940 DATA7647,250,8101,250,8101,500,7647,250,8101,250,9634,500,8101,375
  88. 950 DATA9634,125,8583,1000,7217,500,7217,500,7217,500,6812,250,7217,250
  89. 960 DATA7217,500,6812,250,7217,500,8583,1500,8101,250,7217,250,8101,250
  90. 970 DATA9634,750,10814,750,10814,250,7217,1500,9634,500,9634,500,8583,250,8101,250
  91. 1000 DATA8101,500,7647,250,8101,250,8101,1500,7647,250,8101,250,8101,500
  92. 1010 DATA7647,250,8101,250,8583,250,8101,250,7217,375,6069,125,7217,1000
  93. 1020 DATA6430,500,6430,500,6430,500,6069,250,6430,250,7647,500,7217,250
  94. 1030 DATA6430,250,12860,1250,6430,250,7217,250,8101,250,9634,250,6430,250
  95. 1040 DATA7217,250,8101,250,9634,250,4817,250,5407,250,8101,250
  96. 1050 DATA7217,1000,6430,250
  97. 1060 DATA-1,-1
  98. 10000 PRINT"[149]                         "
  99. 10010 PRINT"[149]                         "
  100. 10020 PRINT"[149]                         "
  101. 10030 PRINT"[149]                         "
  102. 10040 PRINT"[149]                         "
  103. 10050 PRINT"[149]                         "
  104. 10060 PRINT"[149]                         "
  105. 10070 PRINT"[149]                         "
  106. 10080 PRINT"[149]                         "
  107. 10090 PRINT"[149] "
  108. 10100 PRINT"[149] "
  109. 10110 PRINT"[149] "
  110. 10120 PRINT"[149] "
  111. 10130 PRINT"[149] "
  112. 10140 PRINT"[149] "
  113. 10150 PRINT"[149] "
  114. 10160 RETURN
  115.